home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / String Man2984110192001.psc / Replace / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-10-18  |  1.9 KB  |  62 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   6345
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8475
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6345
  10.    ScaleWidth      =   8475
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox txtReplace 
  13.       Height          =   375
  14.       Left            =   120
  15.       TabIndex        =   1
  16.       Text            =   "Replace String"
  17.       Top             =   600
  18.       Width           =   8175
  19.    End
  20.    Begin VB.TextBox txtSearch 
  21.       Height          =   375
  22.       Left            =   120
  23.       TabIndex        =   0
  24.       Text            =   "Search String"
  25.       Top             =   120
  26.       Width           =   8175
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "REPLACE"
  30.       Height          =   615
  31.       Left            =   2760
  32.       TabIndex        =   3
  33.       Top             =   5520
  34.       Width           =   2535
  35.    End
  36.    Begin VB.TextBox txtString 
  37.       BeginProperty Font 
  38.          Name            =   "Arial"
  39.          Size            =   12
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   3975
  47.       Left            =   120
  48.       MultiLine       =   -1  'True
  49.       TabIndex        =   2
  50.       Text            =   "Form1.frx":0000
  51.       Top             =   1200
  52.       Width           =   8175
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Command1_Click()
  60.     txtString.Text = Replace$(txtString, txtSearch.Text, txtReplace.Text)
  61. End Sub
  62.